home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / risc_src.lha / risc_sources / xlib / xcolor.t < prev    next >
Text File  |  1990-06-01  |  827b  |  15 lines
  1. (herald xcolor (env tsys (xlib interface)))
  2. (DEFINE (MAKE-XCOLOR) (CONS 'XCOLORP (MAKE-BYTEV 12)))
  3. (DEFINE (XCOLOR-PIXEL X) (MREF-INTEGER (CHK-XCOLORP X) 0))
  4. (DEFINE (XCOLOR-PIXEL! X Y) (SET-MREF-INTEGER! (CHK-XCOLORP X) 0 Y))
  5. (DEFINE (XCOLOR-RED X) (MREF-16-U (CHK-XCOLORP X) 4))
  6. (DEFINE (XCOLOR-RED! X Y) (SET-MREF-16-U! (CHK-XCOLORP X) 4 Y))
  7. (DEFINE (XCOLOR-GREEN X) (MREF-16-U (CHK-XCOLORP X) 6))
  8. (DEFINE (XCOLOR-GREEN! X Y) (SET-MREF-16-U! (CHK-XCOLORP X) 6 Y))
  9. (DEFINE (XCOLOR-BLUE X) (MREF-16-U (CHK-XCOLORP X) 8))
  10. (DEFINE (XCOLOR-BLUE! X Y) (SET-MREF-16-U! (CHK-XCOLORP X) 8 Y))
  11. (DEFINE (XCOLOR-FLAGS X) (MREF-8-U (CHK-XCOLORP X) 10))
  12. (DEFINE (XCOLOR-FLAGS! X Y) (SET-MREF-8-U! (CHK-XCOLORP X) 10 Y))
  13. (DEFINE (XCOLOR-PAD X) (MREF-8-U (CHK-XCOLORP X) 11))
  14. (DEFINE (XCOLOR-PAD! X Y) (SET-MREF-8-U! (CHK-XCOLORP X) 11 Y))
  15.